home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1990 / Vlad.s < prev    next >
Text File  |  1992-03-10  |  1KB  |  53 lines
  1. ;
  2. ;    Warrior: Vlad
  3. ;  File name: vlad.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: D.Bofinger & T.J.Allen, 7/90
  7. ;
  8. ;             Inspired by Robert Martin's Vampire 
  9. ;
  10. ; Vlad (the Impaler) -- spray the world with lures, when
  11. ;  someone is trapped breed him up as a slave 
  12. ;  to help you erase the world. Keep erasing
  13. ;  the world until the enemy is extinct in
  14. ;  the wild, then have the slaves commit
  15. ;  suicide.
  16. ; Note: The register gotme should contain the process limit, but the program
  17. ;  should still run if it's wrong (at greatly reduced efficiency).
  18. ; 
  19. ; 
  20. ;trap sector
  21. ; 
  22. twirl   djn stab,gotme 
  23. seppuku mov ammo,breed 
  24.         mov ammo,stab
  25. gotme   dat 64,64 
  26. stab    mov bomb,<molar 
  27.         jmp stab 
  28. spin    mov go,start
  29.         djn breed,gotme
  30.         jmp seppuku 
  31. breed   spl twirl
  32.         jmp breed 
  33. ; 
  34. ;start of real program
  35. ; 
  36. start   mov fang,@tusk 
  37.         add #37,tusk 
  38.         sub #37,fang 
  39.         djn start,ammo
  40. worry   mov #209,ammo 
  41.         add #7722,fang 
  42.         sub #7722,tusk 
  43.         jmp start 
  44. erase   mov bomb,<molar  ;start doing our bit in the erasure 
  45.         jmp erase 
  46. go      jmp erase-start
  47. fang    jmp @0,(spin-tusk-2500) 
  48. ammo    dat 145
  49. tusk    dat 2500 
  50. bomb    dat twirl-molar,twirl-molar
  51. molar   dat twirl-molar,twirl-molar 
  52.         end start
  53.